home *** CD-ROM | disk | FTP | other *** search
Text File | 1991-04-21 | 812 b | 55 lines | [TEXT/RBT2] |
- ` Kelly the Karunkle. A good robot to demonstrate many of the
- ` new language features of RB v1.1.
-
- Equip 1 0 0 0 0 400
-
- Setshields 0 1 2 1 0 0 0 0
-
- let left=0-1
- let right=1
-
- turn left
- turn left
-
- engineon
-
- ` If we don't set up these temporaries variables xtemp and ytemp,
- ` we'll only get halfway to the edges of the screen. This is
- ` because XCOORD and YCOORD change as we move. Therefore, we
- ` record the initial values of X & YCOORD in the temps and use
- ` those instead since they don't change.
-
- let xtemp = XCOORD
- for i=1 to xtemp
- wait 1
- next
-
- engineoff
-
- turn right
- turn right
-
- engineon
-
- let ytemp = YCOORD
- for i=1 to ytemp
- wait 1
- next
-
- engineoff
- swivel 90
- turn right
-
- for i=1 to 10
- for j=1 to 18
- swivel 5
- zap
- next
- turn right
- engineon
- wait 73
- engineoff
- turn right
- next
-
-